home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / data / awkscrpt / tasi.awk < prev    next >
Text File  |  1995-02-09  |  993b  |  43 lines
  1. BEGIN {
  2.     maxn=ARGC>1?ARGV[1]:10
  3.     ARGV[1]=""
  4.     srand()
  5.     print "\x1b[2Jたしざんのおけいこ"
  6.     do {
  7.         nm++
  8.         n1=randint(maxn)
  9.         n2=randint(maxn)
  10.         printf("\nだい %d もん    %g + %g = ? ",nm,n1,n2)
  11.         while((input=getline)>0)
  12.             if($0==n1+n2) {
  13.                 print "\x1b[2Jよくできました。(「Q」でおわり)"
  14.                 nr++
  15.                 break
  16.             } else if($0~/[?Hh]/) {
  17.                 print "ただしいこたえは",n1+n2,"です。"
  18.                 nd++
  19.                 break
  20.             } else if($0~/[Qq]/) {
  21.                 exit
  22.             } else if($0=="") {
  23.                 printf("もういちど、どうぞ。:")
  24.             } else {
  25.                 printf("まちがえています。もういちど、どうぞ。:")
  26.                 nw++
  27.             }
  28.     } while(input>0)
  29. }
  30.  
  31. END {
  32.     nm--
  33.     printf("\nもんだいすう　　　　　　%d\n",nm)
  34.     printf("せいかいすう　　　　　　%d\n",nr)
  35.     printf("まちがえたかいすう　　　%d\n",nw)
  36.     printf("わからなかったかいすう　%d\n",nd)
  37.     if(nm>19 && nw==0 && nd==0)
  38.         printf("\nぜんもんせいかい！ あなたはてんさいです！\n")
  39.     print "\nたしざんのおけいこおしまい"
  40. }
  41.  
  42. function randint(n) {return int(rand()*n)+1}
  43.